﻿Public Class xtf_ABMensayosubtipo
    Public obj_ensayosubtipo As cls_ensayosubtipo_ = Nothing
    Private col_ControlesValidar As List(Of Control)

    Public Sub New()
        InitializeComponent()
        Me.Text = "Ensayo Sub Tipo - Nuevo"
        cargarCombo(cbo_tipo, GetType(cls_ensayosubtipo_.enu_tipo))
        obj_ensayosubtipo = New cls_ensayosubtipo_
        AgregarValidacionesGlobal(Me, Me.lac_general, col_ControlesValidar)
    End Sub

    Public Sub Modificar(ByRef ensayosubtipo As cls_ensayosubtipo_)
        If IsNothing(obj_ensayosubtipo) Then
            obj_ensayosubtipo = New cls_ensayosubtipo_
        End If
        obj_ensayosubtipo = ensayosubtipo

        Me.Text = "Ensayo Sub Tipo  - " & obj_ensayosubtipo.ToString
        'txt_ID.Text = obj_localidad.idlocalidad
        txt_ID.Text = obj_ensayosubtipo.idensayotipo
        txt_Nombre.Text = obj_ensayosubtipo.nombre
        txt_NombreENG.Text = obj_ensayosubtipo.nombreENG
        txt_Sigla.Text = obj_ensayosubtipo.sigla
        txt_siglaENG.Text = obj_ensayosubtipo.siglaENG
        txt_numeracionFormato.Text = obj_ensayosubtipo.numeroformato
        txt_numeracion.Text = obj_ensayosubtipo.numero
        txt_modulo.Text = obj_ensayosubtipo.idmodulo
        txt_nombreinforme.Text = obj_ensayosubtipo.nombreinforme
        cbo_tipo.EditValue = obj_ensayosubtipo.tipo
        txt_orden.Value = obj_ensayosubtipo.orden

        chk_NombreUSA.Checked = obj_ensayosubtipo.nombreUSA
        chk_nombreENGUSA.Checked = obj_ensayosubtipo.nombreENGUSA
        chk_siglaUSA.Checked = obj_ensayosubtipo.siglaUSA
        chk_siglaENGUSA.Checked = obj_ensayosubtipo.siglaENGUSA
    End Sub


    Public Function ComprobarDatos() As Boolean
        'If cbo_ensayosubtipo.Enabled = False Then
        '    ErrManagerShow("001019")
        '    Return False
        'End If
        If Not ControlarValidacionesGlobal(col_ControlesValidar) Then
            ErrManagerShow("000004", Me)
            Return False
        End If
        Return True
    End Function

    Private Sub btn_Guardar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Guardar.Click
        If ComprobarDatos() Then
            obj_ensayosubtipo.nombre = txt_Nombre.Text
            obj_ensayosubtipo.nombreENG = txt_nombreENG.Text
            obj_ensayosubtipo.sigla = txt_sigla.Text
            obj_ensayosubtipo.siglaENG = txt_siglaENG.Text
            obj_ensayosubtipo.numeroformato = txt_numeracionFormato.Text
            obj_ensayosubtipo.numero = txt_numeracion.Text
            obj_ensayosubtipo.idmodulo = txt_modulo.Text
            obj_ensayosubtipo.nombreinforme = txt_nombreinforme.Text
            obj_ensayosubtipo.tipo = cbo_tipo.EditValue
            obj_ensayosubtipo.orden = txt_orden.Value

            obj_ensayosubtipo.nombreUSA = chk_NombreUSA.Checked
            obj_ensayosubtipo.nombreENGUSA = chk_nombreENGUSA.Checked
            obj_ensayosubtipo.siglaUSA = chk_siglaUSA.Checked
            obj_ensayosubtipo.siglaENGUSA = chk_siglaENGUSA.Checked

            Me.DialogResult = Windows.Forms.DialogResult.OK
        End If

    End Sub

    Private Sub btn_Cerrar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Cerrar.Click
        Me.DialogResult = Windows.Forms.DialogResult.Cancel
    End Sub

    Private Sub txt_Nombre_EditValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txt_Nombre.EditValueChanged
        If sender.text = "" Then
            chk_NombreUSA.Enabled = False
            chk_NombreUSA.Checked = False
        Else
            chk_NombreUSA.Enabled = True
            chk_NombreUSA.Checked = True
        End If
    End Sub

    Private Sub txt_NombreENG_EditValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txt_nombreENG.EditValueChanged
        If sender.text = "" Then
            chk_nombreENGUSA.Enabled = False
            chk_nombreENGUSA.Checked = False
        Else
            chk_nombreENGUSA.Enabled = True
            chk_nombreENGUSA.Checked = True
        End If
    End Sub

    Private Sub txt_Sigla_EditValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txt_sigla.EditValueChanged
        If sender.text = "" Then
            chk_siglaUSA.Enabled = False
            chk_siglaUSA.Checked = False
        Else
            chk_siglaUSA.Enabled = True
            chk_siglaUSA.Checked = True
        End If
    End Sub

    Private Sub txt_SiglaENG_EditValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txt_siglaENG.EditValueChanged
        If sender.text = "" Then
            chk_siglaENGUSA.Enabled = False
            chk_siglaENGUSA.Checked = False
        Else
            chk_siglaENGUSA.Enabled = True
            chk_siglaENGUSA.Checked = True
        End If
    End Sub
End Class